home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / cnet / ddead.lha / drop.REXX next >
OS/2 REXX Batch file  |  1994-03-29  |  2KB  |  97 lines
  1. /* DropDead v1.0*/
  2.  
  3. options results
  4. bufferflush
  5.  
  6. signal on syntax;signal on ioerr;signal on error
  7.  
  8. path1='pfiles:DD/';path2='ram:'
  9. tr ='transmit';del='c:delete'
  10.  
  11. credsleft = 0;filesleft = 0;status = 1;max = 2
  12.  
  13. getuser 1;handle=result
  14. getuser 40;number = result
  15.  
  16. if exists(path1||number)=1 then signal there
  17. tt=1
  18. call open(1,path1||number,'w')
  19. call writeln(1,tt)
  20. call close(1)
  21. signal quit
  22.  
  23. there:
  24. call open(1,path1||number)
  25. tt = readln(1)
  26. call close(1)
  27. if tt >= max then signal punish
  28. tt=tt+1
  29. call open(1,path1||number,'w')
  30. call writeln(1,tt)
  31. call close(1)
  32. signal quit
  33.  
  34. punish:
  35. if status > 31 then signal next
  36. setobject status
  37. putuser 15
  38.  
  39. next:
  40. if credsleft = 'none' then signal next2
  41. setobject credsleft
  42. putuser 30 
  43. putuser 35 
  44. putuser 42 
  45.  
  46. next2:
  47. if filesleft = 'none' then signal next3
  48. setobject filesleft
  49. putuser 31 
  50. putuser 34 
  51. putuser 44 
  52.  
  53. next3:
  54. call open(1,path2||number,'w')
  55. call writeln(1,center('c6 Hello there 'handle' this was the last time you dropped',79))
  56. call writeln(1,center('carrier at this board!! The punishment is carried out as you',76))
  57. call writeln(1,center("soon will found out...Don't ever do this again!!",76))
  58. call writeln(1,' ')
  59. call writeln(1,center('c7z4 DropDead (C) 1994 by Wolverine / DMIc3z0 ',88))
  60. call close(1)
  61. loadeditor path2||number
  62. setmailsubj "DropDead v1.0"
  63. a = number
  64. writemail a
  65. address command del' 'path1||number
  66. signal final
  67.  
  68. quit:
  69. tp = max - tt + 1
  70. call open(1,path2||number,'w')
  71. call writeln(1,center('c6 Hello there 'handle'. This is the 'tt' time you dropped',79))
  72. call writeln(1,center('carrier at this board. If you do this 'tp' more times',76))
  73. call writeln(1,center("I will have to punish you, so now don't come and say that",76))
  74. call writeln(1,center("I didn't warn you!!!",79))
  75. call writeln(1,' ')
  76. call writeln(1,center('c7z4 DropDead (C) 1994 by Wolverine / DMIc3z0 ',88))
  77. call close(1)
  78. loadeditor path2||number
  79. setmailsubj "DropDead v1.0"
  80. a = number
  81. writemail a;
  82. signal final
  83.  
  84. final:
  85. address command del' 'path2||number
  86. logentry 'c2DropDead went into action!!'
  87. exit
  88.  
  89. error:
  90. exit
  91.  
  92. syntax:
  93. exit
  94.  
  95. ioerr:
  96. exit
  97.